MODULE SetPrt;

FROM Files IMPORT Open, Close, Access, File;

FROM Text IMPORT Write, WriteString;

CONST ESC = 33C;

VAR f: File;

BEGIN
  Open (f,'PRN:',readSeqTxt);
  Write (f,ESC);
  Write (f,'B');
  Close (f)
END SetPrt.

(* $FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$000000C3$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736€$000000BFT.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$000000F2$0000007C$000000F2$000000C8$000000D4$00000072$000000BF$000000D1$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736 €€*)
